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**F ILE**1D**COBCVTRDQ 

cccccccc 000000 BBBBBBBB cccccccc CV VV TTTTTTTTTT RRRRRRRR DDDDDDDD QQQQaQ 
cccccccc 000000 BBBBBBBB —— VV TTTTTTTTTT RRRRRRRR DDDDDDDD Qaaqaaa 

cc 00 00 88 BB CC VV VV TT RR RR DD DD Qa QQ 

cc 00 00 88 BB CC VV VV TT RR RR DD DD QQ 

cc 00 00 88 BB CC VV VV TT RR RR DD DD QQ QQ 

cc 00 00 88 BB CC VV y TT RR RR DD DD aa QQ 

cc 00 00 88888888 cc vv VV TT RRRRRRRR DD DD aa QQ 

cc 00 00 88888888 cc VV VV TT RRRRRRRR DD DD QQ QQ 

cc 00 00 8B BB CC VV VV TT RR RR DD DD QQ QQ Qa 

cc 00 00 88 BB CC VV VV TT RR RR DD DD QQ aa aa 

cc 00 BB BB CC VV VV TT RR RR DD DD QQ QQ eves 

cc 00 BB BB CC VV VV TT RR RR DD DD QQ QQ eeee 
cccccccc 000000 BBBBBSBB cccccccc VV TT RR RR DDDDDDDD aaaa aa cece 
ccccccce 000000 BBBBBBEB ccccccce VV TT RR RR DDDDDDDD oooo aa cece 

LL —1111141 SSSSSSSS 

LL 111411 SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I! SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL 111111 SSSSSSSS 
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6-SEP=-1984 10: COBRTL.SRCJCOBCVTRDQ.MAR; 1 


SCVTRDO_ 
006/ ; File: COBCVTRDQ.MAR 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faameteeetor NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeppokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


BARA RARARAARAAALARAASELALESELE SELES ESE SEES EERE REE R EEE RSE E CECE SECC EE CSCC EEE 


i FACILITY: COBOL SUPPORT 
: ABSTRACT: 


This module contains the routine that converts double floating 
numbers to quadword with rounding. 


VERSION: 1 
HISTORY: 
AUTHOR: 


Marty Jack, 14-Mar-1979 


MODIFIED BY: 


RDQ_R8S M Convert Rounded Double Floating to Quadword 
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-SBTTL HISTORY ; Detailed Current Edit History 


FORSEVTRDG_RO seek abR 


Edit History for Version 1 of COBCVTRDOQ 
Original. MLJ 14-Mar-1979 


Sete Ge Ge Ge Ge Ge Ge Ge 


0 
- Correct problem with high order —— MLJ ae 
- Correct round toward zero A phe oi 2-Jul- 
- Make external references exp) tc — y=1999 

0 - Change all b tefgrences to FO schv" toute to COBSCNVOUT 

8 RKR 27-SEP 


Cosmetic changes. RKR 18-OCT-79 
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1-006 DECLARATIONS ° —— 93:2 244 COBRTL.SRCJCOBCVTRDQ.MAR; 1 ’ 3) 
8 ~SBTTL DECLARATIONS 
64 ; 
8 : INCLUDE FILES: 
89 SDSCDEF 
68 
69 ; 
8 oY ; EXTERNAL SYMBOLS: 
44 3 -DSABL GBL ; Prevent undecalred symbols from being 
it t? ; automatically global 
000 75 -EXTRN COBSCNVOUT 3; E-format conversion 
0000 76 -EXTRN LIBS$STOP 3; Error halt 
0000 77 -EXTRN OTSS$_FATINTERR ; Fatal internal error code 
0000 78 ; 
0600 79 
0000 80 ; 
0000 81 ; MACROS: 
0000 Hf 3 NONE 
0000 83 ; 
0000 He 
0000 5 3 
0000 86 ; PSECT DECLARATIONS: 
00000000 87 -PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 
88 88 
0000 89 ; 
0000 90 ; EQUATED SYMBOLS: 
0000 91; NONE 
0000 3 
0000 2 
0000 94 ; 
0000 95 ; OWN STORAGE: 
0000 96 ; 
0000 97 ;+ 
0000 98 : The a constant has the value 2**32. It is used for scaling 
88 100 3; the high 32 bits and for compensating for unsigned arithmetic. 
6C 29 67 49 29 04 9000 101 BIAS: «PACKED 4294967296 
0006 193 : The following constant is 2**32-1. It's subtracted from negative numbers, 
Bape 19 3; to compensate for rounding towards zero. 
5C 29 67 49 29 04 g 198 BIAS_1: .PACKED 4294967295 
0000000A g8 3 BIAS_DIGITS=1 


eee eee aaa... — 


age 4 


COBSCVTRDQ_R8 COBOL v04-00 P 
1-006 cobst BRTL.SRCJCOBCVTRDQ.MAR; 1 (4) 


D 15 
vert Rounded Double Floating to 15-SEP-1984 23:41:03 VAX/VMS M 
ORE 9 to Seer lobe foresee LC REIC 


-SBTTL COBSCVTRDG_RB 


Pte] 
os 


2 FUNCTIONAL DESCRIPTION: 
Converts a double floating number to quadword with rounding. 
; CALLING SEQUENCE: 
JSB COBSCVTRDQ_R8 (scale.rl.v, src.rd.r, dst.wq.r) 
Arguments are passed in R6, R7, and R8. 
INPUT PARAMETERS: 

SCALE.rl.v The power of ten by which the internal 
multiplied to scole the sane ae the” 
internal representation of the dest. 

SRC.rd.r The number to be converted 

IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 
DST.wq.r The place to store the converted number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 
Destroys registers RO through R8. 


COBSCVTRDQ_R8:: 
SUBL2 #48,SP ; Allocate temp space 
MOVD (R75, (SP) ; Get input number 


; Make a descriptor for the temporary string. 


; PUSHAB 8(SP) Address = space reserved 
MOVB #0S 


7E 01 90 C$K_CLASS_S,-(SP) : Class = static 
7E OF 90 MOVB Iztit DTYPE“T.-(SP) : Data type = ALCII string 
7E 6 80 MOVW #38,-(SP) ; Length in bytes 


Call COBSCNVOUT. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1-006 COBSCVTRDG RE 6-SEP=-1 gf ithe YCOBRTL. SREICOBCVTRDG. MAR; 1 ⸗ 64) 
1F po 1 167 USHL #31 3 Digits in fraction 
04 AE F 168 PUSHAB 4(SP) ; Output string descriptor 
10 at OF 18 PUSHAB —1338 3 Number to convert 
00000000 ' GF 9 4 8 6 170 CALLS #35,G*COBSCNVOUT 3 Call conversion routine 
55 50 € 8 B 3 BLBC RO,20$ 3; Should never fail 
8 0 178 ; Convert the exponent and correct for scale factor. 
6— 02 33 AE QO 9 $3 175° CVTSP #2,51(SP) ,#2, (SP) ; Make packed exponent 
50 6€ O 6 Bose 176 CVTPL : Make longword exponent 
56 =E1 AGG 9E oan Vy MOVAB - {(R6)EROI,R6 :; Correct for fraction size and scale 
003 173 : Convert the fraction to packed. 
12 AE 10 AE 90 003f 18 G MOVB pee eh hd: : Move sign over ‘’."’ 
1F 12 AE 1F O9 84 z CVTSP #31,18(SP) ,#31, (SP) ; Make packed fraction 
13 05 #6& IF 56 FB 004A 18 ASHP R6,#31,(SP),#5,.419,16(SP) ; Scale to temporar 
Boas 13 3 (also clears RO — 
OD 1D 005 185 BVS 10$ : Branch if won't fit in 19 digits 
68 63 13 36 0054 186 CVTPL) #19,(R3), (RB) ; Convert to Longword 
0058 187 3 (also clears RO) 
0B 1D 0058 £188 BvVS 11$ : Can't fit in 32 bits 
68 88 €1 8F 78 OOSA 189 ASHL #-31,(R8)+, (RB) : Spread sign bit 
50 06 OOSF 190 INCL 3; Indicate success, RO = 1 
5E 38 CO 0061 £191 10$: ADDL2 4#56,SP ; Delete stack temps 
05 0064 136 RSB 
0065 193; 
0065 194 ; Come here if the packed number won't fit in 32 bits. 
880 3 Divide by 2**32 to get the high 32 bits of the quadword. 
06 09 Al «£9 «#0065 «#9197 118: BLBC 9(R1),13$ : Skip if positive 
61 13 99 AF OA 22 0069 198 SUBP4 #BIAS_DIGITS,BIAS_1,419,(R1) ; Make more negative 
10 AE 13° 8D AF OA 27 O06F 199 13$:  DIVP  #BIAS-DIGITS.BIAS;A19,16(SP) #19, (SP) ; Divide by 2*#32 
04 AB 6E 5 36 0078 $00 CVTPL) #19, (SP) ,4(R8) ; Convert and store high bits 
007D 01 3 (also clears RO J 
02 1D 007D 8 BVS 12$ 3 Number too large for a 64-bit integer 
50 06 O07F 0 INCL RO 3; Indicate success, RO = 1 
5E 38 CO 0081 04 12$: ADDL2 #56,SP ; Delete stack temps 
05 84 8 RSB 3; Return 
boat 8 > Come here on failure of COBSCNVOUT. This should never happen. 
00000000'8F DD 0085 09 20$:  PUSHL M#OTS$_FATINTERR ; OTS fatal error message 
00000000'GF 01 FB —8 19 CALLS #1,G*CIBSSTOP ; Signal and don't return 
0093 12 ° END 
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Symbol tabTe 6-SEP-1984 10:43:44 [CCOBRTL.SR tie COBCVTRDQ.MAR; 1 (4) | 
BIAS 
gis ee 1 8 
BIAS_DIGITS = 
CoBSCNVOUT etunenen 99 
COBSCVTRDQ_RB 8 0 oc ace 
DSCSK_CLASS_S 886 
DSCSK_DTYPE_T O0E 
LIBSSTOP ——— x 00 
OTS$_FATINTERR seeeeeee§ =X 00 
Fea nmoores eeeecaeece + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. “ABS ° 00000000 < 0.) 00 * 0.) NOPIC USR CON’ ABS LCL NOSHR NOEXE NORD — NOVEC BYTE 
SABSS 00000000 Go.) OT ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
_COBSCODE 00000092 ( 146.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOURT NOVEC LONG 
be wen remem new ween ewe ewe ne 
; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 40 00:00:00.08 00:00:01.14 | 
Command processing 118 00:00:00.28 00:00:03. 32 
Pass 1 135 00:00:01.19 00:00:10. 34 
pyeees table sort 0 00:00:00.10 oes SE 
s 2 55 00:00:00.40 00:00:02.86 
sed table output 3 00:00:00.01 00:00:00.01 
Psect synopsis output 5 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 358 00:00:02.09 00:00:17.92 


g‘e source Lines were read in Pass 1, produc 32 
pages of virtual memory were used to define 7 macros. 


! Macro Library statistics - 


— — 


Macro Library name Macros defined 

-$255$DUA28: CSYSLIBISTARLET.MLB; 2 4 

190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 

MACRO/ENABLE =SUPPRE SSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:COBCVTRDQ/0BJ=0BJ$:COBCVTRDQ MSRC$:COBCVTRDQ/UPDATE=(ENHS$: COBCVTRDQ) 
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